home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / xstandardcolormap.t < prev    next >
Text File  |  1990-06-01  |  2KB  |  36 lines
  1. (herald xstandardcolormap (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XSTANDARDCOLORMAP)
  3.         (CONS 'XSTANDARDCOLORMAPP (MAKE-BYTEV 32)))
  4. (DEFINE (XSTANDARDCOLORMAP-COLORMAP X)
  5.         (MREF-INTEGER (CHK-XSTANDARDCOLORMAPP X) 0))
  6. (DEFINE (XSTANDARDCOLORMAP-COLORMAP! X Y)
  7.         (SET-MREF-INTEGER! (CHK-XSTANDARDCOLORMAPP X) 0 Y))
  8. (DEFINE (XSTANDARDCOLORMAP-RED_MAX X)
  9.         (MREF-INTEGER (CHK-XSTANDARDCOLORMAPP X) 4))
  10. (DEFINE (XSTANDARDCOLORMAP-RED_MAX! X Y)
  11.         (SET-MREF-INTEGER! (CHK-XSTANDARDCOLORMAPP X) 4 Y))
  12. (DEFINE (XSTANDARDCOLORMAP-RED_MULT X)
  13.         (MREF-INTEGER (CHK-XSTANDARDCOLORMAPP X) 8))
  14. (DEFINE (XSTANDARDCOLORMAP-RED_MULT! X Y)
  15.         (SET-MREF-INTEGER! (CHK-XSTANDARDCOLORMAPP X) 8 Y))
  16. (DEFINE (XSTANDARDCOLORMAP-GREEN_MAX X)
  17.         (MREF-INTEGER (CHK-XSTANDARDCOLORMAPP X) 12))
  18. (DEFINE (XSTANDARDCOLORMAP-GREEN_MAX! X Y)
  19.         (SET-MREF-INTEGER! (CHK-XSTANDARDCOLORMAPP X) 12 Y))
  20. (DEFINE (XSTANDARDCOLORMAP-GREEN_MULT X)
  21.         (MREF-INTEGER (CHK-XSTANDARDCOLORMAPP X) 16))
  22. (DEFINE (XSTANDARDCOLORMAP-GREEN_MULT! X Y)
  23.         (SET-MREF-INTEGER! (CHK-XSTANDARDCOLORMAPP X) 16 Y))
  24. (DEFINE (XSTANDARDCOLORMAP-BLUE_MAX X)
  25.         (MREF-INTEGER (CHK-XSTANDARDCOLORMAPP X) 20))
  26. (DEFINE (XSTANDARDCOLORMAP-BLUE_MAX! X Y)
  27.         (SET-MREF-INTEGER! (CHK-XSTANDARDCOLORMAPP X) 20 Y))
  28. (DEFINE (XSTANDARDCOLORMAP-BLUE_MULT X)
  29.         (MREF-INTEGER (CHK-XSTANDARDCOLORMAPP X) 24))
  30. (DEFINE (XSTANDARDCOLORMAP-BLUE_MULT! X Y)
  31.         (SET-MREF-INTEGER! (CHK-XSTANDARDCOLORMAPP X) 24 Y))
  32. (DEFINE (XSTANDARDCOLORMAP-BASE_PIXEL X)
  33.         (MREF-INTEGER (CHK-XSTANDARDCOLORMAPP X) 28))
  34. (DEFINE (XSTANDARDCOLORMAP-BASE_PIXEL! X Y)
  35.         (SET-MREF-INTEGER! (CHK-XSTANDARDCOLORMAPP X) 28 Y))
  36.